home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tpdb314.zip / TPDB.DOC < prev    next >
Text File  |  1991-01-31  |  55KB  |  1,924 lines
  1. This  documentation   was  written  using   Borland's  MicroStar  word
  2. processor.
  3.  
  4. THIS  SOFTWARE IS  PROTECTED BY  A COPYRIGHT  DULY REGISTERED WITH THE
  5. U.S. COPYRIGHT OFFICE. PIRACY WILL NOT  GO UNPUNISHED (IN THIS LIFE OR
  6. THE NEXT.)
  7.  
  8.                      (****************************************)
  9.                      (*               TPDB 3.14              *)
  10.                      (*     Turbo Pascal Tools for dBASE     *)
  11.                      (*                                      *)
  12.                      (*           Turbo Pascal 6.0           *)
  13.                      (*  Object - Oriented Database Toolbox  *)
  14.                      (*    Utilizing dBASE Compatible Data   *)
  15.                      (*                Files                 *)
  16.                      (*                                      *)
  17.                      (*            Copyright 1990            *)
  18.                      (*               Brian Corll            *)
  19.                      (*      and Ten B.C. Micro Systems      *)
  20.                      (*          All Rights Reserved         *)
  21.                      (*      dBASE, dBASE III, and dBASE     *)
  22.                      (*      III Plus are registered         *)
  23.                      (*    trademarks of Ashton-Tate Corp.   *)
  24.                      (*                                      *)
  25.                      (*    Turbo Pascal is a registered      *)
  26.                      (*    trademark of Borland Int. Corp.   *)
  27.                      (*                                      *)
  28.                      (*     Version 3.14  January,1991       *)
  29.                      (*                                      *)
  30.                      (****************************************)
  31.                      (*     Portions copyright 1984,1990 by  *)
  32.                      (*       Borland International Corp.    *)
  33.                      (****************************************)
  34.  
  35.  
  36.             TPDB is  a toolbox of  Turbo Pascal 6.0  units which allow
  37.             you  to access,  index,  search,  read and  write database
  38.             files that were created with  dBASE III or III Plus, using
  39.             75+   Turbo  Pascal   procedures  and   functions  written
  40.             specifically   for   these   purposes,   and  implementing
  41.             object-oriented techniques. This toolbox supports multiple
  42.             data  files  and  associated   indexes (NOT dBASE INDEXES !)
  43.             limited only by available  memory and file handles allowed
  44.             by DOS. Index keys can be up to 254 characters, and can be
  45.             composed of multiple fields  or expressions which evaluate
  46.             to a string not longer than 254 characters.
  47.  
  48.            ************************************************************
  49.            *                   Technical Support                      *
  50.            ************************************************************
  51.            *                                                          *
  52.            *Questions/comments can be left for  me on the InterLink or*
  53.            *FidoNet Pascal  or dBASE conferences.  On FidoNet, I  am a*
  54.            *point, 1:270/111.3                                        *
  55.            *                                                          *
  56.            ************************************************************
  57.            *My CompuServe ID is 73067,3310.                           *
  58.            ************************************************************
  59.  
  60.             This  program  is  being  distributed  under the Shareware
  61.             concept.
  62.  
  63.             If you like this program and use it, a registration fee of
  64.             $ 19.95 is required for non-profit users. Commercial users
  65.             MUST  register for  a one-time,  royalty-free registration
  66.             fee of $ 29.95. Registered  users will receive source code
  67.             for TPDB.tpu, TPDBDATE.tpu, TPDBScrn.tpu, TPDBStr.tpu, and
  68.             TPDBSort.tpu. See the file REGISTER.FRM. Registration also
  69.             includes free technical support, within the limitations of
  70.             my time and resources.
  71.  
  72.             NOTA BENE:  This registration fee is  intended to cover my
  73.             personal  time  and  expense  in  developing, documenting,
  74.             distributing,  and supporting  this toolbox,  and does not
  75.             constitute the sale of the code contained therein.
  76.  
  77.  
  78.             Write to:
  79.  
  80.                          SoftIron
  81.                          Brian Corll
  82.                          1002 East Simpson Street
  83.                          Mechanicsburg,PA  17055
  84.  
  85.             Make checks payable to Brian Corll.
  86.  
  87.             DISCLAIMER
  88.  
  89.             This program  is provided "as is"  without warranty of any
  90.             kind, either express or  implied, included but not limited
  91.             to the implied warranty of merchantability and fitness for
  92.             a specific purpose. The entire  risk as to the quality and
  93.             performance of this program is with you.
  94.  
  95.             In  no event  will the  author be  liable to  you for  any
  96.             damages, including any lost profits, lost savings or other
  97.             incidental or consequential damages arising out of the use
  98.             of or inability to use this program.
  99.  
  100.             That said, please  be assured that I have  spent many long
  101.             hours trying to make this toolbox  the best it can be, and
  102.             I'm working to make it even better !
  103.  
  104. (**********************************)
  105. (* Interface Listing for TPDB.pas *)
  106. (**********************************)
  107.  
  108.  
  109. Unit TPDB;
  110.  
  111. {This version is Version 3.14 January, 1991}
  112.  
  113.  
  114.                      (***********************************)
  115.                      (*         Object -Oriented        *)
  116.                      (*     Turbo Pascal 6.0 Unit       *)
  117.                      (*    for Accessing dBASE III      *)
  118.                      (*             files.              *)
  119.                      (*        Copyright 1990           *)
  120.                      (*          Brian Corll            *)
  121.                      (*       All Rights Reserved       *)
  122.                      (*     dBASE is a registered       *)
  123.                      (* trademark of Ashton-Tate, Inc.  *)
  124.                      (*   Version 3.14 January,1991     *)
  125.                      (***********************************)
  126.                      (*   Portions Copyright 1984,1990  *)
  127.                      (*    Borland International Corp.  *)
  128.                      (***********************************)
  129.  
  130.  
  131. INTERFACE
  132.  
  133. Uses CRT,Dos,TPDBINDX,TPDBDate,TPDBScrn,TPDBStr;
  134.  
  135.  
  136. (******************************)
  137. (*      Global VARiables      *)
  138. (******************************)
  139.  
  140. CONST
  141.  
  142.   (**************************************************************************)
  143.    MaxInds = 10; {Maximum number of indexes per file.  Change this as needed.}
  144.   (**************************************************************************)
  145.  
  146.   AutoWrap    : Boolean = FALSE;
  147.   {Set this to TRUE to enable wrapping of field input.}
  148.  
  149.   { These are screen editing control keys:
  150.   CursorDown  = ^X;
  151.   CursorEND   = ^F;
  152.   CursorHome  = ^A;
  153.   CursorLeft  = ^S;
  154.   CursorRight = ^D;
  155.   CursorUp    = ^E;
  156.   DelKey      = ^G;
  157.   Escape      = ^[;
  158.   ExtKey       : Boolean = FALSE;
  159.   PageDown     = ^C;
  160.   PageUp       = ^R;
  161.   Return       = ^M;
  162.   TabKey       = #9;}
  163.  
  164.   { These constants determine whether or not index keys are unique:
  165.   NoDuplicates = 0;
  166.   Duplicates  =  1;}
  167.  
  168.   Filler  :  Char  =  #32;  {This  is  the character displayed for blank
  169.   portion of fields during editing and display.}
  170.  
  171.   {Numeric processing minimum and maximum values
  172.   MaxLong      = 2147483647;
  173.   MaxReal      = 3.4E37;
  174.   MinLong      = -2147483647;
  175.   MinReal      = 1.5E-45;}
  176.  
  177.  
  178.  
  179.   UpperCase  : Boolean  = FALSE;  {Turns upper  case conversion ON/OFF
  180.   during screen input.}
  181.  
  182.   {Date format constants}
  183.   {Used by SetDateFormat procedure}
  184.   French   = 1; {dd/mm/yy}
  185.   German   = 2; {dd.mm.yy}
  186.   Italian  = 3; {dd-mm-yy}
  187.   American = 4; {mm/dd/yy}
  188.   British  = 5; {dd/mm/yy}
  189.   Ans